home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 4,401 to 4,500 / aol-file-protocol-4400-4401-to-4500.zip / AOLDLs / PDA-Newton Development / NW_ Newton Dev. (Unlock Code) / TimeLock.sea / TimeLock / IDgenerator-code next >
Text File  |  1983-05-01  |  172b  |  9 lines
  1. 0010  Print "Please enter a username"
  2. 0015  LET p=0
  3. 0020  input x
  4. 0030  LET B=Strlen(x)
  5. 0040  for i=0 to B-1
  6. 0050    LET p=p+ord(x[i])
  7. 0060  next i
  8. 0070  print p
  9. 0080  stop